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Declarations 

add_cache, Add cache entry given VBN 
alldc_cache_hdr, allocate dynamic memory 
lookup_cache, Lookup a given VBN in the c 
remove cache, Remove a Single cache entry 
empty_cache, Empty disk block cache 
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“SEP-19 LBR.SRCICACHE.MAR;1 (1) | 


1 ofitte Garren s"= block cache routines ‘ 

¢. 2 ident : 

¢ I eal aiding tas, ena : 

:* & | . 

§ 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . : 

is DIGITAL EQUIPHENT CORPORATION, MAYNARD, MASSACHUSETTS. , | : 

19 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE ySED AND COPIED * | : 
11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pint SE AND ae THE * ‘ 

1 3* INCLUSION OF THE ABOVE pedo NOTICE. THIS sort WARE OR ANY OTHER * | : 
15 ;* COPIES THEREOF MAY The BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 

00 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | ; 
444 1? :* TRANSFERRED. , ; 
0000 17 * THE hoy phe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | : 
0000 18 ;* AND ULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
44 } 7 CORPORATION. - | ; 
0000 s * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * . 
0000 $4 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
ae : 
464 $2 WITTIIIITITI TIT T ITI TIT titi ti titi ti tititiiiitititiiitititititi titi iii i tiie : 
6000 6 ; 3 
0000 7 ; ; 
444 oe 3: ©FACILITY | : 
4 $0 Native mode Librarian : 
9000 3 ! ABSTRACT | ; 
0000 34 ; Routines to manipulate the disk block cache | ; 
+94 $2 : in dynamic memory. | : 
9000 37 : ENVIRONMENT | 3 
9000 33 : Native mode, user mode | : 
9000 41 ; AUTHOR | : 
443 6S : Tim Halvorsen, Benn Schreiber, July 1979 : 
0900 45 ; MODIFIED BY | 3 
0000 47 ; v03-001 CWHO001 CW Hobbs 14-Aug-1982 | ; 
0000 «= 48 ; Change name of SLBRCTLTBL macro to SLBRCTLDEF so that ; 
444 $3 ; name produced by SDL matches. | : 
0000 af v02-008 RPGO018 Bob Grosso 22-Dec-1981 | ; 
O60 2¢ i 5 Support deallocation of cache header entries. ; 
000 4 : v02-007 RPGOO17 Bob Grosso 02-Dec-1981 | 3 
0 5 : Support el Location of cache header entries from : 
900 g: ; common block. 
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39 v02-003 RPGOO14 Bob Grosso eee sunnt tel 
Check status return from allocate in add_cache. 
v02-002 RPGO013 Bob Gro 19-Jan-1981 


Record the highest VBN in the cache at ctx$l_hivbn. 
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-sbttl Declarations 
Symbol defintions 


$cachedef ; Cache definitions 
Sctxdef ; Context area definitions 
Slordef ; Librarian definitions 
$lorctldet ; Librarian control table 


-psect $code$,exe,nowrt 
-default displacement word 


ror 


<r 
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| 
«sbttl add_cache, Add cache entry given VBN 


0 
1 3 
: 3 Add a cache entry to the block cache and return 
¢ 3 the address to the caller. 
§ ; Inputs: 
g RO = VBN of disk block 
3 i 3 R1 = Address of longword to receive cache entry address 
38 $3 ; Outputs: | 
33 93 ; None 
00 95 
000 38 add_cache:: 
. & 44 9 ushre #*M<r2, 73, 74, 75> 3; save registers 
9 10 000 98 sbb find _vbn_entry ; look it up 
0550 =€9 ae 99 blbc r0,40$ ; branch if not found, go insert 
50 04 0007 #100 clrl r : error if already in cache | 
3C =Ss«&BA 44 101 popr #*m<r2, 73, 74, r5> 
05 0008 Ie rs 
00c 103; 
445 19 3; add to cache 
50 3 dO 000C 106 40$: movi #cache$c_length,r0 ; length of block 
67 10 Q00F 10 bsbb alloc cache_hdr ; allocate cache header entry 
26 50 €9 0011 #108 blbc r0,60 : return error status 
65 51 00 0014 109 mov l ri,(r5) 3; return address to caller 
61 62 00 BoA 110 mov mpage" te tt +5 | pattie amt ; and Link into hash List | 
62 51 DO OO1A 111 movl ri,cache$l_Link(r2) 
Ai 54 00 001D 13 mov l r4,cache$l_vbn(r1) 3; set vbn into cache entry 
52. O000"CF DO 0021 11 mov torsal_controt r2 ; control table index 
OE Ag DO 0026 114 movl lor$l_ctx tr(re) r2 3; context block address 
5 46 A DO 002A 115 mov ctx$l_hivbn(r2),r3 ; highest vbn in cache 
53 o 0081 118 cael r4,r5 ; compare highest to most recent vbn | 
e 
46 ag 4 +4 $0 ; 118 novi r4,ctx$l_hivbn(r2) ; save new highest vbn | 
5 DO 003 119 50$: mov l of 3: return success 
BA OO3A 139 60$: poor #*m<r2, 3, 74, r5> | 
§ 003C 121 rs | 
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: Routine to look up vbn in the cache table 

: Inputs 

: Outputs 

; r0 not found 

3 oun 

3 ri pointer to entry (if found) 

: r2 pointer to previous entry 

tind _vbn_entry 
movg r0,r ; put vbn in r4, return addr in r5 
movl te} L_control,ri 3; control table index 
mov Lbr$C_Ctxptr(rf) rt : context block address 
movl ctxSt _cache(ri), r 3 point to cache hash table 


r4cr 3 ash function is vbn-1 
bicl2 ant cel bese hashsize/4>-15,r0 ; trim to table maximum 
moval (ri)Cr0J,r2 : get address of previous 
mov (r2),r1 ; point to hash entry List 


10$: beql ; if eql not in List 
cmpol r4,cache$l_vbn(r1) 3; is this the sabre 
beql o$ ; if eql yes 
bgtru 0$ 5 37 etry . and not in List 
movl ri,r2 5 Ay, up the rear 
movl cache$l_Link(r1),r1 ; and link to next 
brb 10$ 

20$: mov l #1,r0 
rsb 

30$: clrl r0 
rsb 
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LBR.SRCICACHE .MAR; 1 
-sbttl alloc cache_hdr, allocate dynamic memory for cache header 


alloc _cache_hdr 
this routine as tecate 8 cache header entry from a common block 
of yt maintained by “potater in the context block. If the 
common block is not sufficient to meet the need then dynamic ponery 
is obtained by expanding the region, to increase the common block. 
inputs: 
r0 = size of block to allocate 
outputs: 


rl = address of allocated block 


alloc_cache_hdr: 
pushr #*m<r2,r3> 


3 first check if common block is large enough 

, movl _— Lbr$gl_control,r2 ; control table index 
movl lors _ttxptr(ré), r2 3 context block address 
cmpl ctx$l_ “chdallsiz(r2), rO ; see if common block is large enough 
bgtr 208 

; if not large enough, then deallocate any fragment 


movl ctx$l_chdallsiz(r2),r0 ; size left over 
beql 


mov l ctx$l_chdalladr(r2),r1 ; address of left over 
jsb deal loc_mem ; deallocate left over 
: and allocate more 
10s: mov l #<ctx$c chdallblks512>,r0 allocate new common block 
movab ctx$l_chdalladr(r2),r1 location to receive address 
bsbw get_zmem : asi ecere the cy 
blbc r0,30$ with error sta 
mov | #<ctx$c _chdallblk*512>, ctx$t Tndatts t2cee) 3 aie of common block 
; obtain cache entry header from common block 
208: mov l aeagne sc Length+7>,r3 : round up to nearest 
bicl : multi i of four bytes 
subl r3, ies: gtngeites (r2) : decr block size 
movl carte _chdalladr(r2),r1 ; return address of cache header entry 
addl2 CEaSL _chdal Ladr(r2) ; remove from block 
mov l 3 return success 


30$: popr Pare, r3> 
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-sbttl lookup_cache, Lookup a given VBN in the cache 


Lookup a specified VBN in the disk block cache 
and return the address of the cache entry. 


Ri = Address of Longword to receive cache entry address 
OUTPUTS: 
r0 = True if symbol found 
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ookup_cache:: 
3 ushr #*m<r2, 73, 74, r5> 
FF 0 & sbw find_vbn_entry ; look it up 
65 3 dO D movl ri,(r5) ; return address 
C BA O 3 popr #*m<r2, 3, 74, r5> 
05 O rs 


| 
| 

INPUTS: 
RO = VBN to Lookup 
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44 -sbttl remove_cache, Remove a single cache entry | 


i) 
D d : 
p 4 : Remove a cache entry given the VBN of the entry. 
op 44 : Inputs: 
p 46 : RO = VBN of disk block 
op 48 : Outputs: 
D 0; r0 = status code 
0D 34 remove_cache:: 
D 54 ushr #*m<r2, 3, r4, r5> 
D 55 sbw 1" vbn entry ; look it up 
0D8 2$ blbc 
0008 5 movl cacheSl_ Link(r1),=- 
00DD 58 cache$l_Link(r2) z unlink from the List 
OODE 59 mov l #cache$c_Llength,r0 ; set Length of block 
Boe ¢} ony deat loc _inem ; deallocate cache entry 
mov 
00E7 6¢ 20S: popr gence, r3, r4, r5> 
00E9 26 rs 


more in bucket? 
if non yes 
loop for whole table 

deallocate cache table 


stl cr 
Qq 208 
30$: sobgeq r3,10$ 
r4,r] ; 
movl Zupres necks tae.78 
(r5) 
mov | r6,r0 


50 
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70s~500 empty cache, Empty disk block cache eet 7 8:98:48 LBR.SRCICACHE .MAR; 1 . (8) 
a 6g - ~sbttl empty_cache, Empty disk block cache 
EA 267: 
EA o8 ; Empty the entire disk block cache and return the 
: storage used. 
FA 590 ‘ 
OFA 4 3; Inputs: 
BEA rs 3 None 
OEA o? 3; Outputs: 
SEA o 3 None 
BA BIB 
OOFC Opes 0 -entry empty _cache,- 
Ree 1 “n<r2,r3,r4,r5,r6,r7> 
56 dO bore : movl #1,°6 3 preset success return 
55 Q000'CF 43 OOEF 84 movab dealloc_mem,r5 3; address of deallocation routine 
54. O000°CF DO OOF4 85 mov rpccset contrat r4 ; control table address 
5 OE dO ta 6 mov l lors _ttxptr(rd) 4 3; context block address 
50 4A AG DO OOFD 8 mov ctx$l_chdallsiz(r4),r0 ; cache header entry allocation block size 
1 GE A400 8108 9 movl ctx$l_chdalladr(r4),r1 ; cache header entry allocation block addr 
65 16 133 0 jsb r ; deallocate the cache header entry blocks 
4A AQ 7C 34 44 4 clrq ctx$l_chdallsiz(r4) ; clear the size and address in ctx block 
08 AS OOF S10A 38 pushab ctx$l_cache(r4) 3; stack address of cache hash List pointer 
54 08 AS 00 010D 94 mov l ctx$l_cache(r4),r4 ; cache hash List address 
9E D4 SBE 3 clrl a(sp)F 3; clear cache hash pointer in context block 
53 Q000007F 8F 00 113 39 movl #<lbr$c_hashsize/4>-1,r3 ; start at end of table 
52.6443 9 11A 98 10$: mov (r4)Cr3I,r2 i get entry for this hash bucket 
™ ie 39 beql 308 : if eql none 
14 OC A €&9 01 00 208: blbc cache$w_flags(r2),25$ ; branch if not modified 
50 O8A DO 4 4 01 movi cache$l_address(ré),r0 ; address to write from 
51 O4A DO 0128 8 mov l cache$l_vbn(r2),r1 3; and vbn to write at 
09 56 5 012C 0 blbc r ; branch if previous write error 
FECE* 30 ot F 304 bsbw write block : write back the block 
03 5 E8 01 ¢ 83 blbs r0,25 : branch if write error 
56 =6 550 % 1 $ mov l r0,r 3 save error for later 
50 00000200 8F OD 138 07 25$: movl #lbr$c pages ize ro 3 set size of block 
1 08 Ag DO 0135 3 mov l caghest_a dress(r2),r1 ; block address 
6 16 0143 jsb (r5) ; deallocate it 
51 52 p00 9145 10 movl r2,r1 ; deallocate cache entry 
50 0 +4 148 11 mov l #cache$c_length,r0 
52 62 )«Os«014B 1 mov cacheSl_Tink r2),r2 Link to next 
16 014 1 sb (r5) deallocate cache entry 
D5 015 14 
12 015 15 
F4 154 16 
) 13 1 
D 15A 18 
1 161 1 
B 163 $0 
4 0166 1 
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Symbol table ets §h33 735 CLBR.SRCICACHE.MAR; 1 . (8) | 
ADD_ CACHE RG | 
ALLOC_CACHE HOR 8 S 83 
CACHESC_LENGTH E 
CACHESK_LENGTH 
CACHESL_ADDRESS | 
CACHESL_LINK 
HE $L—VBN 4 
CACHESW FLAGS 
CTXSB_OCTXTRFA 
CTX$B_ RFA 9 
CTXSB_NXTPUTRFA : 
CTXSB_READRFA 9 
CTXSB_RPNEWTXT C 
CTX$C_CHDALLBLK = 
CTX$SC_LENGTH 086 
CTXSK_LENGTH 44 : 
CTXSL_CACHE 000000 
CTX$SL_CHDALLADR 44 
CTXS$L_-CHDALLS1Z QV00004A 
CTXSL_CTLFLG 00000004 
CTXSL_DCXCTX 00000052 
CTXSL_OCXMAPDSC 00000056 
CTXSL_DCXRECDSC 0000005A 
CTX$SL_HIVBN 0000046 
CTXSL_RDBLKS 44 94 ts 
CTXSL_RDBUFR 00000032 
CTX$L_RDVBN1 00000036 
CTXSL_READBUF 44 4 4033 
CTX$L_RECRAB 0000000C 
CTX$L_RPHASHT td tb 
CTX$SL-RPLDESC 0000014 
CIXSW—IFI 000000 
CTX$W_ISI 000000 
DEALLOC_MEM aeeeeree X 68 
EMPTY CACHE OOOOOEA RG 0 
Ff IND_JBN_ENTRY 000003D R 0 
GET_7MEM eeeeenee 0 
LBRSC_HASHSIZE = 00000300 
LBRSC_PAGESIZE = 0000020 
LBRSGC_CONTROL ertereee 2 
LBRSL_CTXPTR = 0000000 
LOOKUP_CACHE 00000C8 RG § 
REMOVE CACHE 000000D3 RG 
WRITE_BLOCK eeeeeere =X 0 
foes sr sw wmece acetone we cm + 
! Psect synopsis ! 
pew oewroeenr sen amrcocen + i 
PSECT name Allocation PSECT No. Attributes 
, 2 . 00000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE | 
ABSS tit $ ( 134.) 83 ( 1.) NOPIC USR CON ABS LCL NOSHR- EXE RD WRT NOVEC BYTE 
SCODES 0000016 ( 359.) 2¢ 2.) NOPIC USR CON REL LCL NOSHR- EXE RD NOWRT NOVEC BYTE ' 


Disk block cache routines ye ~ 138% 9 :45 VAX/VMS Macro V04- 09 


CACH 
Gagen Macro Run Statistics 4 01: 3 :35 CLBR.SRCICACHE.MAR;1 


gewoon eecesneae ener en eoaenae $ 


! Performance indicators ! 


deena aeseocetcese se eee see e eect 


Phase Page faults CPU Time 


Elapsed Time 


nitialization 7:00:00. :00:00. 
Initializati 29 0:00:00.09 0 73 
—_ y processing 14 0:00: 9-9) :00:02.94 
17 0:00:03.14 :00:06.99 
Symbol table sort ’ 0:00: p ¢ :00: G3 
Symbol table output 8; 8: : ; 80: 00:03 
Psect synopsis output 1 0:00:00. Ba BR! 0.03 
Cross-reference output 0 00:00:00.00 Se 
Assembler run totals 431 00:00:05.02 00:00:13.09 


Ths working set Limit was 1200 pages. 

15285 bytes (30 pages) of virtual memory were used to ore the intermediate code. 

There were 20 pages of symbol table space allocated to hold 196 non-local and ia Local symbols. 
323 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

11 pages of virtual memory were used to define 10 macros. 


Sew en meme mma wer nwa mama mae $+ 


Macro library name 


.$255$DUA28: CLBR.OBJILBR.MLB;1 2 
“$255$DUA28: CSYSLIBJSTARLET.MLB;2 5 
TOTALS (all Libraries) 7 


271 GETS were required to define 7 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CACHE/OBJ=OBJ$:CACHE MSRC$:CACHE/UPDATE=(ENH$: CACHE) +LIB$:LBR/LIB 


teal 
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